Computer Life: SuperPac/SuperPac (Computer Life Magazine)(Ziff-Davis)(1995).ISO/pc/demos/usoft/16/xpldmo6.exe/xpldmo6.DXR/00205.ls

Text File | 1994-09-24 | 507 b | 32 lines

on waitFor numSecs
  set now to the timer
  repeat while the timer < (now + (numSecs * 60))
    if the mouseDown then
      exit
    end if
  end repeat
end

on checkSCard
  global theSCardOK
  if soundBusy(1) = 1 then
    set theSCardOK to 0
  else
    set theSCardOK to 2
  end if
end

on waitSound thisone
  global theSCardOK
  updateStage()
  if theSCardOK = 0 then
    if soundBusy(1) = 0 then
      go(the frame + 1)
    else
      go(the frame)
    end if
  else
    waitFor(theSCardOK)
  end if
end